(cancel-function-timers): Renamed from spurious duplicate

definition of cancel-timer.

diff --git a/lisp/timer.el b/lisp/timer.el
index e63f77defa099a2f6a018c572355a1af3d4e62b9..1bfc5ec323a0c5e634cf18c4bf7c6f8a215fff7f 100644 (file)
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -128,9 +128,9 @@ will happen at the specified time."
       ;; Used to set timer-scratch to "", but nothing uses that var.
       (setq timer-process nil timer-alist nil))))
 
-(defun cancel-timer (function)
+(defun cancel-function-timers (function)
   "Cancel all events scheduled by `run-at-time' which would run FUNCTION."
-  (interactive "aCancel function: ")
+  (interactive "aCancel timers of function: ")
   (let ((alist timer-alist))
     (while alist
       (if (eq (nth 2 (car alist)) function)